-- card: 2901 from stack: in
-- bmap block id: 6645
-- flags: 0000
-- background id: 2747
-- name: title
----- HyperTalk script -----
on openCard
  hide menubar
  hide message
  tabKey
  put empty into card field "final" of card "show story"
  put empty into card field "title" of card "show story"
end openCard




-- part 1 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=173 top=141 right=159 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 36
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: title


-- part 2 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=220 top=165 right=183 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 36
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: character


-- part 3 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=135 top=189 right=223 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 36
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: theme


-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=122 top=294 right=327 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Write Story
----- HyperTalk script -----
on mouseUp
  get line 1 of card field "title"
  if it is empty then
    answer "Give your story a title."
    click at 315, 152
    exit mouseUp
  end if
  put it into card field "title" of card "write story"
  put it into card field "title" of card "show story"
  get line 1 of card field "character"
  if it is empty then
    answer "Name character(s) for your story."
    click at 339, 175
    exit mouseUp
  end if
  put it into card field "character" of card "write story"
  put line 1 to 2 of card field "theme" into card field "theme" of card "write story"
  visual effect scroll up
  go to card "write story"
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=349 top=296 right=326 bottom=441
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Instructions
----- HyperTalk script -----
on mouseUp
  push card
  visual effect iris open
  go to card "Instructions"
end mouseUp




-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=446 top=297 right=326 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  answer "Quit HyperCard or go Home?" with "Cancel" or "Quit" or "Go Home"
  if it is "Go Home" then
    go home
    exit mouseUp
  end if
  if it is "cancel" then exit mouseUp
  else visual effect zoom in
  domenu "Quit Hypercard"
end mouseUp




-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=238 top=294 right=328 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  answer "Which story would you like to read?" with "Story 1" or "Story 2" or "Story 3"
  visual effect scroll up
  go to card it
end mouseUp